home *** CD-ROM | disk | FTP | other *** search
/ Robotics & Artificial Int…3 (Professional Edition) / Robotics & Artificial Intelligence Tools 2003 (Professional Edition).iso / computer vision recognition / rcinstall.exe / Disk1 / data1.cab / ASP_Pages / processing.asp < prev    next >
Encoding:
Text File  |  2001-12-12  |  380 b   |  21 lines
  1. <%@ LANGUAGE = VBScript %>
  2. <%
  3.  
  4. Response.Expires = 0
  5. Dim obj 
  6. Dim bitmap
  7. Err.Clear
  8. TEXT = "" & Request.QueryString("text")
  9.  
  10. On Error Resume Next
  11.  
  12. 'create an instance of the bar code object
  13. set obj = Server.createobject("RCbarcode.barcode128")
  14.  
  15. bitmap = obj.createbarcode(TEXT)
  16.  
  17. Response.ContentType = "image/bmp"
  18. response.BinaryWrite(bitmap)
  19. set obj=nothing
  20. %>
  21.